10 INPUT"[147][198]ILENAME";F$:IFF$=""THEN END
20 INPUT"[196]EVICE";D$:IFD$=""THEND$="8"
30 SYS2137,F$,VAL(D$):END